﻿Imports System
Imports System.Collections.Generic

Namespace System.Workflow.Runtime.DebugEngine
    Friend NotInheritable Class InstanceMap
        Inherits Dictionary([Of] Guid, InstanceData)
        Implements ICloneable
        ' Methods
        Private Function System.ICloneable.Clone() As Object Implements ICloneable.Clone
            Dim map As New InstanceMap
            Dim guid As Guid
            For Each guid In MyBase.Keys
                map.Add(guid, DirectCast(MyBase.Item(guid).Clone, InstanceData))
            Next
            Return map
        End Function

    End Class
End Namespace

